home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / cw trivia (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  20KB  |  401 lines
  1. 5 clr:poke649,0
  2. 8 gosub 700
  3. 10 printchr$(14):poke53280,0:poke53281,0:printchr$(147)chr$(5)
  4. 11 gosub 61000
  5. 15 printtab(12)"[154][195][201][214][201][204][146] [152][215][193][210][146] [154][212][210][201][214][201][193][146]"
  6. 16 printtab(4)chr$(28)"[145][145][145][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  7. 17 printtab(4)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  8. 18 forg=1to10:forr=1to25:poke 53280,r:nextr:nextg:poke53280,0
  9. 19 gosub3500
  10. 20 printtab(9)chr$(158)"[145][145][145][145][196]o you need directions?"
  11. 30 printtab(12)chr$(154)"[208]ress '[217]' or '[206]'  "
  12. 32 print"                            "
  13. 35 poke649,10
  14. 40 getk$:ifk$=""then40
  15. 42 ifk$<>"y"andk$<>"n"thengoto40
  16. 43 poke649,0
  17. 45 ifk$="y"thengoto100
  18. 46 ifk$="n"thengoto199
  19. 100 printchr$(147):poke53280,12:poke53281,15
  20. 120 printtab(7)chr$(31)chr$(18)"[212][200][197] [195][201][214][201][204] [215][193][210] [212][210][201][214][201][193][160][199][193][205][197]"
  21. 125 printtab(5)chr$(151)"[212][200][197][160][195][201][214][201][204][160][215][193][210] [212][210][201][214][201][193][160][199][193][205][197] is";:print" based on";
  22. 126 print" both speed and knowledge.  [212]he faster";
  23. 128 print"you answer questions correctly, the"
  24. 130 print"more points you'll receive."
  25. 135 printtab(16)chr$(149)chr$(18)"[211]coring"
  26. 136 printtab(2)chr$(31)"50 points - if you answer correctly"
  27. 137 printtab(14)"in 1/2 second or less."
  28. 140 printtab(2)chr$(31)"25 points - if you answer correctly"
  29. 141 printtab(14)"in 1 second or less."
  30. 145 printtab(2)"20 points - if you answer correctly"
  31. 150 printtab(14)"in 2 seconds or less."
  32. 155 printtab(2)"15 points - if you answer correctly"
  33. 160 printtab(14)"in 3 seconds or less."
  34. 165 printtab(2)"10 points - if you take over 3 sec-"
  35. 170 printtab(14)"onds to answer correctly."
  36. 180 printchr$(144)chr$(18)"[212]he game will end on your 5th missed    ";
  37. 181 printchr$(18)"question, or when the questions run out."
  38. 185 printtab(13)"[208][210][197][211][211] [193][206][217] [203][197][217]":poke649,10
  39. 187 getz$:if z$=""then187
  40. 188 poke649,0
  41. 190 gosub3300
  42. 199 poke53280,6:poke53281,0:printchr$(147)chr$(144)
  43. 200 print"[153][200]ere we go..."
  44. 210 forx=1to1500:nextx
  45. 214 bf=0:bg=0:bi=0:bm=0:bn=0
  46. 215 qu=80:po=0:nw=0:co=0:tt=0:nd=0:dimdp(qu):restore:goto 2000
  47. 300 fora=828to914:readb:pokea,b:c=c+b:next
  48. 700 v=53248
  49. 712 pokev+37,2:pokev+38,7:pokev+28,14:pokev+40,15:pokev+41,7
  50. 713 pokev+27,peek(v+27)or(2^2)
  51. 715 pokev+23,peek(v+23)or2^2
  52. 716 pokev+27,peek(v+27)or2^1:pokev+23,peek(v+23)or2^1
  53. 720 fori=1to2:poke2040+i,15:nexti
  54. 730 forn=0to62:readq:poke960+n,q:next
  55. 750 poke v+4,50:pokev+5,208:pokev+2,90:pokev+3,208
  56. 760 data0,16,0,0,84,0,1,85,0,5,85,64,21,85,80,21,85,80,21
  57. 770 data85,80,21,85,80,21,85,80,21,85,80,21,85,80,21,85,80,21,85,80
  58. 780 data 16,16,16,16,16,16,16,0,16,18,68,144,16,0,16
  59. 781 data 18,68,144,16,0,16,18,68,144
  60. 785 return
  61. 900 poke6,11
  62. 901 ifx=50thengosub2499
  63. 902 forz=1tox:p=int(rnd(1)*15)
  64. 903 ifxu=1thenpoke54296,13
  65. 904 ifxu=0thenpoke54296,0
  66. 905 poke54277,0:poke54278,246:poke54276,17:poke54273,43:poke53280,p
  67. 906 poke54272,0:forh=1to25:next:poke54276,16:po=po+1
  68. 907 print"[153]";po
  69. 910 poke53281,p:nextz:poke53281,0:poke53280,4
  70. 920 return
  71. 1046 data"[212]he most famous [195]ivil [215]ar photographer  was named [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  72. 1047 data"[218]achary [212]aylor","[195]harles [211]umner","[215]illiam [211]eward","[205]athew [194]. [194]rady"
  73. 1066 data"[205]any southern leaders felt [204]incoln's    election would [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  74. 1067 data"help the [211]outh","encourage slavery","hurt the [206]orth","wreck the [211]outh"
  75. 1068 data"[212]he very first state to secede from the [213]nion in 1860 was [175][175][175][175][175][175][175][175][175][175]."
  76. 1069 data"[214]irginia","[193]labama","[206]orth [195]arolina","[211]outh [195]arolina"
  77. 1070 data"[201]n all, how many southern states secededfrom the [213]nion?"
  78. 1071 data"13","9","7","11"
  79. 1072 data"[212]he capital city of the [195]onfederate     [211]tates of [193]merica was [175][175][175][175][175][175][175].
  80. 1073 [131]"(NULL)obile, atnlabama","atnustin, (NULL)exas","str$allas, (NULL)exas","(NULL)ichmond, (NULL)irginia"
  81. 1074 [131]"(NULL)nder the lenonfederate constitution, the president was to serve andandandandandand.
  82. 1075 data"for 4 years","for 2 years","for 10 years","for 6 years"
  83. 1076 data"[215]hich is the only one to be outlawed by the [195]onfederate constitution?"
  84. 1077 data"slavery","entrance of new states","the spread of slavery","tariffs"
  85. 1078 data"[212]he president of the [195]onfederate [211]tates of [193]merica was [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  86. 1079 data"[193]braham [204]incoln","[202]ames [194]uchanan","[210]obert [197]. [204]ee","[202]efferson [196]avis"
  87. 1080 data"[212]he [195]ivil [215]ar took place between        [175][175][175][175][175][175][175][175][175][175][175][175]."
  88. 1081 data"1850-1865","1859-1863","1881-1885","1861-1865"
  89. 1082 data"[212]he [211]outh began the fighting by seizing [175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  90. 1083 data"[215]ashington, [196].[195].","[213]nion cities","[213]nion railroads","federal arsenals"
  91. 1084 data"[212]he [206]orth's original goal at the [195]ivil  [215]ar's beginning was to [175][175][175][175][175][175].
  92. 1085 [131]"free the slaves","punish the (NULL)outh","seize the slaves","save the (NULL)nion
  93. 1086 data"[212]he opening shots of the [195]ivil [215]ar were fired at [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  94. 1087 data"[200]arpers [198]erry","[194]ull [210]un","[199]ettysburg","[198]t. [211]umter"
  95. 1088 data"[198]t. [211]umter was located off the coast of [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  96. 1089 data"[206]orth [195]arolina","[214]irginia","[199]eorgia","[211]outh [195]arolina"
  97. 1090 data"[212]he [213]nion officer in command of [198]t.     [211]umter was [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  98. 1091 data"[208]ierre [199].[212]. [194]eauregard","[202]ohn [194]ell","[210]obert [197]. [204]ee","[210]obert [193]nderson"
  99. 1092 data"[212]he [195]onfederate commander who captured  [198]t. [211]umter was [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  100. 1093 data"[210]obert [193]nderson","[210]obert [197]. [204]ee","[215]infield [211]cott","[208]ierre [194]eauregard"
  101. 1094 data"[212]he day after [198]t. [211]umter fell, [204]incoln  called for [175][175][175][175][175][175][175] volunteers.
  102. 1095 [131]"25,000","250,000","50,000","75,000"
  103. 1096 [131]"right$n 1861, the western part of andandandandandandandandandand decided to join the (NULL)nion."
  104. 1097 [131]"(NULL)outh lenarolina","atnrkansas","(NULL)ennessee","(NULL)irginia"
  105. 1098 [131]"(NULL)he commander of the lenonfederate army   during most of the war was andand.
  106. 1099 data"[213]lysses [211]. [199]rant","[215]infield [211]cott","[199]eorge [199]. [205]eade","[210]obert [197]. [204]ee"
  107. 1100 data"[196]uring the [195]ivil [215]ar, the [206]orth was     composed of [175][175][175][175] states."
  108. 1101 data"11","19","32","23"
  109. 1102 data"[196]uring the [195]ivil [215]ar, the [206]orth had an  approximate population of [175][175][175].
  110. 1103 [131]"102,000,000","9,500,000","63,000,000","22,000,000"
  111. 1104 [131]"str$uring the lenivil (NULL)ar, the (NULL)outh had an  approximate population of andandand.
  112. 1105 data"22,000,000","102,000,000","3,600,000","9,500,000"
  113. 1106 data"[212]here were approximately [175][175][175][175][175][175][175] slaves in the [211]outh during the war."
  114. 1107 data"9,500,000","22,000,000","63,000,000","3,600,000"
  115. 1108 data"[212]he name of the [213]nion plan to defeat the[195]onfederacy was the [175][175][175][175][175][175][175][175]."
  116. 1109 data"[211]ecession","[197]mancipation [208]roclamation","[201]naugur